Dijkstra's Algorithm/Dijkstracls.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = ‑1 'True
END
Attribute VB_Name = "Dijkstracls"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'(c)2002 by Louis.
Public NodeIndex As Long
Public NodeDistance As Long
Public NodePreviousIndex As Long
Public DijkstraclsNext As Object

Private Sub Class_Initialize()
    'on error resume next
    Set DijkstraclsNext = Nothing 'preset (may not be necessary)
End Sub

Private Sub Class_Terminate()
    'on error resume next
    If Not (DijkstraclsNext Is Nothing) Then Set DijkstraclsNext = Nothing 'free up memory (may not be necessary)
End Sub


[END OF FILE]